home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #1 / utv1n1s1.d64 / nom de plume (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  4KB  |  190 lines
  1. 1 rem pgm name--   nom de plume
  2. 2 rem pgm author-- dave hammond
  3. 3 :
  4. 4 rem (c)1987 uptime magazine
  5. 5 rem (c)1987 softdisk publishing, inc.
  6. 6 :
  7. 9 uptime=(8*4096)+4
  8. 10 poke 53280,6: poke53281,6: print"[147]"chr$(8)chr$(14)
  9. 15 sp$="                                       "
  10. 20 close2:close15
  11. 25 :
  12. 30 gosub 2000: rem *** print screen ***
  13. 35 :
  14. 80 gosub 1000: rem *** print instructions ***
  15. 125 :
  16. 130 gosub 9000: rem *** get a keypress ***
  17. 135 if k=140 then sys uptime
  18. 140 if k<>13 then goto 130
  19. 145 :
  20. 150 gosub 1500: rem *** get current disk name ***
  21. 155 if en<>0 then 500
  22. 160 if n$="[213]p[212]ime [214]1 [206]1" then gosub 8500: goto 130
  23. 165 :
  24. 170 gosub 8000: rem *** change this disk? ***
  25. 175 :
  26. 180 gosub 9000: rem *** get a keypress ***
  27. 190 if k=140 then sys uptime
  28. 200 if (k$="n") or (k$="[206]") then close15:goto 80
  29. 210 if (k$<>"y") and (k$<>"[217]") then 180
  30. 215 :
  31. 220 print"                                       "
  32. 225 print"[145][206]ew disk name:"
  33. 230 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145]"
  34. 240 print""
  35. 250 print"                                     "
  36. 260 print"[197]nter the new disk name"
  37. 270 gosub 7000: rem *** get new disk name ***
  38. 280 if f$="" then goto 80
  39. 285 :
  40. 290 gosub 6000: rem *** write new disk title ***
  41. 300 if en<>0 then 500
  42. 305 :
  43. 310 print"[196]isk name has been rewritten"
  44. 320 print"[210]ename another disk?"
  45. 330 print"[208]ress [217][159] or [206][159] to select   "
  46. 340 gosub 9000: rem *** get a keypress ***
  47. 350 if (k=140) or (k$="n") or (k$="[206]") then sys uptime
  48. 360 if (k$<>"y") and (k$<>"[217]") then 340
  49. 370 goto 80
  50. 500 gosub 9100: rem *** clear text area
  51. 505 :
  52. 510 print""
  53. 520 t=int((40-len(em$))/2)
  54. 530 printspc(t)""em$
  55. 540 gosub 2100
  56. 550 get k$: if k$=""then 550
  57. 560 if k$=chr$(13) then goto 80
  58. 570 sys uptime
  59. 1000 gosub 9100: rem *** clear instruction area ***
  60. 1005 print"[210]emove the [213][208][212][201][205][197][159] disk from the drive"
  61. 1010 print"and"
  62. 1020 print"[201]nsert the disk you wish to rename"
  63. 1025 gosub 2100: rem *** include f8 & <cr> ***
  64. 1030 return
  65. 1497 :
  66. 1498 rem *** get current disk name ***
  67. 1499 :
  68. 1500 open15,8,15,"i0"
  69. 1505 :
  70. 1520 gosub 9900: rem *** clear disk error channel ***
  71. 1530 if en<>0 then return
  72. 1535 :
  73. 1540 open2,8,2,"#0"
  74. 1545 print#15,"u1";2;0;18;0: rem *** read disk bam ***
  75. 1550 gosub 9900: rem *** clear disk error channel ***
  76. 1560 if en<>0 then return
  77. 1565 :
  78. 1570 print#15,"m-r"chr$(144)chr$(3)chr$(16): rem *** rqst to read disk name ***
  79. 1575 :
  80. 1580 n$=""
  81. 1590 for x=1 to 16
  82. 1600 get#15,by$: if by$=""then by$=chr$(0)
  83. 1610 if by$<>chr$(160) then n$=n$+by$
  84. 1620 next
  85. 1625 :
  86. 1630 close 2: close 15: return
  87. 1995 :
  88. 1996 rem **************
  89. 1997 rem  print screen
  90. 1998 rem **************
  91. 1999 :
  92. 2000 print"[206]om de [208]lume"
  93. 2030 print"[159](a.k.a. [193] [196]isk by any other [206]ame )
  94. 2040 [129] x[178]1[164]17: [153]: [130]
  95. 2060 [153]"atnn (NULL)(NULL)(NULL)right$(NULL)valopen (NULL)agazine str$isk (NULL)tility"
  96. 2070 [153]"(c)1986 by (NULL)oftdisk (NULL)ublishing, right$nc."
  97. 2090 [142]
  98. 2095 [143] :
  99. 2096 [143] *****************
  100. 2097 [143]  print f8 & <cr>
  101. 2098 [143] *****************
  102. 2099 [143] :
  103. 2100 [153]"";
  104. 2110 [129] x[178]1[164]18: [153]: [130]
  105. 2130 [153]"(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)open to continue"
  106. 2140 [153]"(NULL)ress asc8open to exit to (NULL)(NULL)(NULL)right$(NULL)valopen"
  107. 2150 [142]
  108. 5997 :
  109. 5998 [143] *** write new disk name ***
  110. 5999 :
  111. 6000 [159] 15,8,15: [159] 2,8,2,"#0"
  112. 6005 sp$[178][199](160)
  113. 6010 p$[178]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$[170]sp$
  114. 6020 f$[178][200](f$[170]p$,16)
  115. 6030 [152]15,"m-w"[199](144)[199](3)[199](16)f$
  116. 6040 [152]15,"u2";2;0;18;0
  117. 6050 [141] 9900
  118. 6060 [139] en[179][177]0 [167] [142]
  119. 6065 [152]15,"i0"
  120. 6070 [160]2:[160]15
  121. 6080 [142]
  122. 6997 :
  123. 6998 [143] *** get new disk name ***
  124. 6999 :
  125. 7000 [153]"*cmd";
  126. 7010 t$[178]"":ct[178]0
  127. 7020 [159]1,0
  128. 7025 :
  129. 7030 [161]#1,k$: [139] k$[178]"" [167] 7030
  130. 7040 k[178][198](k$)
  131. 7050 [139] k[178]140 [167] [160]1: [160]2: [160]15: [158] uptime
  132. 7060 [139] k[178]13 [167] [137] 7200
  133. 7070 [139] k[179][177]20 [167] 7100
  134. 7080 [139] ct[179][177]0 [167] [153] " cmdcmd*cmd";: ct[178]ct[171]1: t$[178][200](t$,ct)
  135. 7090 [137] 7030
  136. 7095 :
  137. 7100 [139] (k[178]46) [176] (k[178]32) [167] [137] 7140
  138. 7110 [139] (k[177]47) [175] (k[179]58) [167] [137] 7140
  139. 7120 [139] (k[177]64) [175] (k[179]91) [167] [137] 7140
  140. 7130 [137] 7030
  141. 7140 [139] ct[178]16 [167] [137] 7030
  142. 7150 [153]k$"*cmd";: t$[178]t$[170]k$: ct[178]ct[170]1
  143. 7160 [137] 7030
  144. 7200 [153]" open": [139] ct[178]0 [167] t$[178]""
  145. 7210 ct[178]0: f$[178]t$: [160]1: [142]
  146. 7997 :
  147. 7998 [143] *** current disk name screen ***
  148. 7999 :
  149. 8000 [141] 9100: [143] *** clear the instruction area ***
  150. 8010 [153]"lenurrent disk's name:";
  151. 8020 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(on"
  152. 8030 [153]"on";n$;"open"
  153. 8040 [153][166]2)"right$s this the disk you wish to rename?"
  154. 8050 [153]"(NULL)ress (NULL)open or (NULL)open to select"
  155. 8055 [141] 2140: [143] *** inc. <cr> ***
  156. 8060 [142]
  157. 8497 :
  158. 8498 [143] *** disk name is uptime ***
  159. 8499 :
  160. 8500 [153]""
  161. 8505 :
  162. 8510 [153]"                                       on";
  163. 8520 [153]"right$nsert atn(NULL)(NULL)(NULL)left$val(NULL)open disk to rename"
  164. 8530 [142]
  165. 8997 :
  166. 8998 [143] *** get a keypress ***
  167. 8999 :
  168. 9000 [161] k$: [139] k$[178]"" [167] 9000
  169. 9010 k[178][198](k$)
  170. 9015 [139] (k[178]13) [176] (k[178]140) [167] [142]
  171. 9020 [139] (k$[178]"y") [176] (k$[178]"(NULL)") [167] [142]
  172. 9030 [139] (k$[178]"n") [176] (k$[178]"(NULL)") [167] [142]
  173. 9050 [137] 9000
  174. 9095 :
  175. 9096 [143] *****************
  176. 9097 [143]  clear text area
  177. 9098 [143] *****************
  178. 9099 :
  179. 9100 [153]""
  180. 9110 [129] x[178]1 [164] 14
  181. 9120 [153]"                                       "
  182. 9130 [130]
  183. 9140 [142]
  184. 9897 :
  185. 9898 [143] *** clear disk error channel ***
  186. 9899 :
  187. 9900 [132]15,en,em$,et,es
  188. 9910 [139] en[179][177]0 [167] [160]2: [160]15
  189. 9920 [142]
  190.